home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / hardware.swg / 0003_Determine Cluster Size.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  457 b   |  20 lines
  1. {
  2. > Is there any way to find the size of each allocation Unit in a Hard drive?
  3. }
  4.  
  5. Uses Dos;
  6.  
  7. Function clustsize (drive : Byte) : Word;
  8. Var
  9.   regs : Registers;
  10. begin
  11.   regs.cx := 0;         {set For error-checking just to be sure}
  12.   regs.ax := $3600;     {get free space}
  13.   regs.dx := drive;     {0=current, 1=a:, 2=b:, etc.}
  14.   msDos (regs);
  15.   clustsize := regs.ax * regs.cx;      {cluster size!}
  16. end;
  17.  
  18. begin
  19.   Writeln(ClustSize(0));
  20. end.